package Text::Filter::Hatena;

use Text::Hatena;

use base 'Text::Filter::Base';

sub call{
    my $self = shift;
    my $text = Text::Hatena->parse($self->text);
    $self->text($text);
    $self->next::method(@_);  
    return $self->text;
}

1;

